Developer CD Series 1995 August: Tool Chest

home *** CD-ROM | disk | FTP | other *** search

/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / PowerLisp / PowerLisp 1.1.sea / PowerLisp 1.1 / examples / primes.lisp < prev next >

MacBinary | 1994-04-04 | 1.1 KB | [TEXT/ROSA]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

browse contents |

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Mon Apr 4 01:37:45 1994, modified Mon Apr 4 01:37:45 1994, creator 'ROSA', type ASCII, 481 bytes "primes.lisp" , at 0x261 398 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[ROSA]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 70 72 69 6d 65 73 | 2e 6c 69 73 70 00 00 00 |..primes|.lisp...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 52 4f 53 | 41 01 00 00 00 00 00 00 |.TEXTROS|A.......|
|00000050| 00 00 00 00 00 01 e1 00 | 00 01 8e a9 c5 58 29 a9 |........|.....X).|
|00000060| c5 58 29 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.X).....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 34 65 00 00 |........|....4e..|
|00000080| 3b 0d 3b 09 09 46 69 6c | 65 3a 09 09 70 72 69 6d |;.;..Fil|e:..prim|
|00000090| 65 73 2e 6c 69 73 70 0d | 3b 09 09 43 6f 6e 74 65 |es.lisp.|;..Conte|
|000000a0| 6e 74 73 3a 09 4c 69 73 | 70 20 70 72 6f 67 72 61 |nts:.Lis|p progra|
|000000b0| 6d 20 74 6f 20 67 65 6e | 65 72 61 74 65 20 61 6c |m to gen|erate al|
|000000c0| 6c 20 74 68 65 20 70 72 | 69 6d 65 20 6e 75 6d 62 |l the pr|ime numb|
|000000d0| 65 72 73 0d 3b 09 09 09 | 09 09 62 65 74 77 65 65 |ers.;...|..betwee|
|000000e0| 6e 20 31 20 61 6e 64 20 | 6e 2e 20 49 74 20 69 73 |n 1 and |n. It is|
|000000f0| 20 71 75 69 63 6b 20 61 | 6e 64 20 64 69 72 74 79 | quick a|nd dirty|
|00000100| 2c 20 61 6e 64 20 75 73 | 65 73 0d 3b 09 09 09 09 |, and us|es.;....|
|00000110| 09 61 20 62 72 75 74 65 | 20 66 6f 72 63 65 20 61 |.a brute| force a|
|00000120| 70 70 72 6f 61 63 68 20 | 74 6f 20 63 61 6c 63 75 |pproach |to calcu|
|00000130| 6c 61 74 69 6e 67 20 74 | 68 65 6d 20 28 69 2e 65 |lating t|hem (i.e|
|00000140| 2e 20 69 74 0d 3b 09 09 | 09 09 09 74 72 69 65 73 |. it.;..|...tries|
|00000150| 20 61 6c 6c 20 70 6f 73 | 73 69 62 69 6c 69 74 65 | all pos|sibilite|
|00000160| 73 29 2e 0d 3b 0d 28 64 | 65 66 75 6e 20 70 72 69 |s)..;.(d|efun pri|
|00000170| 6d 65 73 20 28 6e 31 20 | 6e 32 29 0d 09 22 47 65 |mes (n1 |n2).."Ge|
|00000180| 6e 65 72 61 74 65 20 61 | 6c 6c 20 74 68 65 20 70 |nerate a|ll the p|
|00000190| 72 69 6d 65 20 6e 75 6d | 62 65 72 73 20 62 65 74 |rime num|bers bet|
|000001a0| 77 65 65 6e 20 6e 31 20 | 61 6e 64 20 6e 32 22 0d |ween n1 |and n2".|
|000001b0| 09 28 64 6f 20 28 28 69 | 20 6e 31 20 28 31 2b 20 |.(do ((i| n1 (1+ |
|000001c0| 69 29 29 29 0d 09 09 28 | 28 3e 20 69 20 6e 32 29 |i)))...(|(> i n2)|
|000001d0| 29 0d 09 09 28 62 6c 6f | 63 6b 20 69 6e 6e 65 72 |)...(blo|ck inner|
|000001e0| 0d 09 09 09 28 64 6f 20 | 28 28 6a 20 32 20 28 31 |....(do |((j 2 (1|
|000001f0| 2b 20 6a 29 29 29 0d 09 | 09 09 09 28 28 3e 3d 20 |+ j)))..|...((>= |
|00000200| 6a 20 69 29 20 28 70 72 | 69 6e 74 20 69 29 29 0d |j i) (pr|int i)).|
|00000210| 09 09 09 09 28 69 66 20 | 28 7a 65 72 6f 70 20 28 |....(if |(zerop (|
|00000220| 6d 6f 64 20 69 20 6a 29 | 29 09 3b 20 69 66 20 66 |mod i j)|).; if f|
|00000230| 6f 75 6e 64 20 61 20 64 | 69 76 69 73 6f 72 0d 09 |ound a d|ivisor..|
|00000240| 09 09 09 20 09 28 72 65 | 74 75 72 6e 2d 66 72 6f |... .(re|turn-fro|
|00000250| 6d 20 69 6e 6e 65 72 29 | 29 29 29 29 29 20 0d 0d |m inner)|))))) ..|
|00000260| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 42 |.......L|...L...B|
|00000290| 04 26 00 27 43 00 24 26 | 2b 00 28 b6 bc 00 da e7 |.&.'C.$&|+.(.....|
|000002a0| e4 67 00 00 20 4f ef ff | f8 2e ab 00 28 42 af 00 |.g.. O..|....(B..|
|000002b0| 0b 70 72 69 6d 65 73 2e | 6c 69 73 70 02 00 00 00 |.primes.|lisp....|
|000002c0| 54 45 58 54 52 4f 53 41 | 00 00 00 00 00 00 00 00 |TEXTROSA|........|
|000002d0| 00 00 54 45 58 54 52 4f | 53 41 00 00 00 00 00 00 |..TEXTRO|SA......|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 a9 c5 1f e7 00 00 | 00 00 00 00 01 8e ef 00 |........|........|
|00000300| 0c 60 00 00 14 2f 3c 00 | 00 00 20 4e b9 00 fe d1 |.`.../<.|.. N....|
|00000310| d2 4f ef 00 04 26 00 27 | 43 00 2c 26 2b 00 30 b6 |.O...&.'|C.,&+.0.|
|00000320| bc 00 da e7 e4 67 00 00 | 20 4f ef ff f8 2e ab 00 |.....g..| O......|
|00000330| 30 42 af 00 04 2f 0f 4e | b9 00 c3 8c 5a 26 00 4f |0B.../.N|....Z&.O|
|00000340| ef 00 0c 60 00 00 14 2f | 3c 00 00 00 45 4e b9 00 |...`.../|<...EN..|
|00000350| fe d1 d2 4f ef 00 04 26 | 00 27 43 00 30 4f ef ff |...O...&|.'C.0O..|
|00000360| dc 4f ef ff f8 2e ab 00 | 04 42 af 00 04 2f 0f 4e |.O......|.B.../.N|
|00000370| b9 00 c2 87 a2 26 00 4f | ef 00 0c 2e 83 2f 53 00 |.....&.O|...../S.|
|00000380| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 04 00 50 00 20 01 55 |........|...P. .U|
|000003b0| 01 f7 00 50 00 20 01 55 | 01 f7 00 00 00 00 00 00 |...P. .U|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|000003d0| 00 00 01 4c 00 00 00 4c | 00 00 00 42 00 e4 e2 3c |...L...L|...B...<|
|000003e0| 1c 48 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.H.....2|..MPSR..|
|000003f0| 00 0a 03 ed 00 00 00 00 | 00 00 00 e4 e7 1c 0f 45 |........|.......E|
|00000400| 64 69 74 6f 72 20 73 65 | 74 74 69 6e 67 73 00 00 |ditor se|ttings..|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+